Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume25 / listserv5.31 / part01 next >

Wrap

Internet Message Format | 1991-12-13 | 78.4 KB

Subject: v25i035: listserv5.31 - mailing list management system, Part01/06 Newsgroups: comp.sources.unix Approved: vixie@pa.dec.com Submitted-By: tasos@cs.bu.edu Posting-Number: Volume 25, Issue 35 Archive-Name: listserv5.31/part01 This is a system that implements various discussion lists with one list server. It is automated, and obliterates the need for user intervention and maintenance of multiple aliases of the form "list, list-owner, list-request", etc. There is support provided for archives, moderated lists, peer lists, news connections and gateways, and mail queuing. [ Essentially, this is bunch of tools that lets people subscribe, unsubscribe, and get various info about mailing lists automatically. The tools take incoming mail for the list(s) and distribute them to the active subscribers. It also provides an interface (via mail) for archives, allowing remote users to list and retreive things from the archive. The main hook for the system is through the machine's aliases file. All incoming mail is dumped into a queue for the various lists, and then the tools that he provide process the queues. I think that this is a pretty useful system. It would be neat if it gained wide-spread usage. --Nick ] [ I am sad to see that the man pages are not in source form; this practice is hereby discouraged in all future postings. --vix ] #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 6)." # Contents: .awk .grep .ignored .stats MANIFEST archives # archives/listserv archives/listserv/DIR archives/listserv/INDEX # archives/listserv/example.dat # archives/listserv/example.dat/example.dat1 # archives/listserv/example.dat/example.dat2 # archives/listserv/example.dat/example.dat3 archives/listserv/info # archives/listserv/refcard archives/pub archives/pub/DIR # archives/pub/INDEX archives/pub/info archives/pub/unix # archives/pub/unix/DIR archives/pub/unix/INDEX # archives/pub/unix/info config doc doc/README doc/farch.nr # doc/queue.nr flocks help help/general help/get help/index # help/information help/lists help/recipients help/release help/set # help/statistics help/subscribe help/unsubscribe news peer queued # redux reformat setup src src/Makefile src/REGISTRATION # src/global.h src/list.h src/listserv.h src/pqueue.c src/pqueue.h # src/serverd.h src/signals.c src/start.h src/struct.h src/tlock.c # stds ulock # Wrapped by vixie@cognition.pa.dec.com on Fri Dec 13 18:31:08 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f '.awk' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'.awk'\" else echo shar: Extracting \"'.awk'\" $423 characters$ sed "s/^X//" >'.awk' <<'END_OF_FILE' X{ X tabcol = 40; X l = 0; X if (length ($1) < tabcol) X l = int ((tabcol + 7 - length ($1)) / 8); X printf "%s", $1; X k = 8 - int ((length ($1) % 8)); X for (i = 0; i < k; i++) printf (" "); X for (i = 0; i < l; i++) printf " "; X if ($2 != "") printf " %s", $2; X if ($3 != "") printf " %s", $3; X if ($4 != "") printf " %s", $4; X if ($5 != "") printf " %s", $5; X if ($6 != "") printf " %s", $6; X print ""; X} END_OF_FILE if test 423 -ne `wc -c <'.awk'`; then echo shar: \"'.awk'\" unpacked with wrong size! fi # end of '.awk' fi if test -f '.grep' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'.grep'\" else echo shar: Extracting \"'.grep'\" $115 characters$ sed "s/^X//" >'.grep' <<'END_OF_FILE' X#!/bin/sh f="k" while [ "$f" != "" ]; do X read f X if [ "$f" != "" ]; then X grep -i "$f$" $1 | wc -l X fi done END_OF_FILE if test 115 -ne `wc -c <'.grep'`; then echo shar: \"'.grep'\" unpacked with wrong size! fi # end of '.grep' fi if test -f '.ignored' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'.ignored'\" else echo shar: Extracting \"'.ignored'\" $25 characters$ sed "s/^X//" >'.ignored' <<'END_OF_FILE' root server bin sys uucp END_OF_FILE if test 25 -ne `wc -c <'.ignored'`; then echo shar: \"'.ignored'\" unpacked with wrong size! fi # end of '.ignored' fi if test -f '.stats' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'.stats'\" else echo shar: Extracting \"'.stats'\" $470 characters$ sed "s/^X//" >'.stats' <<'END_OF_FILE' X#!/bin/sh pth=$1 subscribers=$2 headers=$3 outfile=$4 shift; shift; shift; shift if [ $# = 0 ]; then X if [ `cut -d" " -f1 $subscribers > emails` ]; then X exit 1 X fi else X for user X do X echo $user >> emails X done fi if [ `cat emails | $pth/.grep $headers > counts` ]; then X exit 1 fi if [ `paste emails counts | awk -f $pth/.awk - >> $outfile` ]; then X exit 1 fi echo Total number of messages on file: `cat $headers | wc -l` >> $outfile rm counts rm emails END_OF_FILE if test 470 -ne `wc -c <'.stats'`; then echo shar: \"'.stats'\" unpacked with wrong size! fi # end of '.stats' fi if test -f 'MANIFEST' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'MANIFEST'\" else echo shar: Extracting \"'MANIFEST'\" $2445 characters$ sed "s/^X//" >'MANIFEST' <<'END_OF_FILE' X File Name Archive # Description X----------------------------------------------------------- X .awk 1 X .grep 1 X .ignored 1 X .stats 1 X MANIFEST 1 X archives 1 X archives/listserv 1 X archives/listserv/DIR 1 X archives/listserv/INDEX 1 X archives/listserv/example.dat 1 X archives/listserv/example.dat/example.dat1 1 X archives/listserv/example.dat/example.dat2 1 X archives/listserv/example.dat/example.dat3 1 X archives/listserv/info 1 X archives/listserv/refcard 1 X archives/pub 1 X archives/pub/DIR 1 X archives/pub/INDEX 1 X archives/pub/info 1 X archives/pub/unix 1 X archives/pub/unix/DIR 1 X archives/pub/unix/INDEX 1 X archives/pub/unix/info 1 X config 1 X doc 1 X doc/README 1 X doc/farch.nr 1 X doc/queue.nr 1 X doc/server.nr 5 X flocks 1 X help 1 X help/general 1 X help/get 1 X help/index 1 X help/information 1 X help/lists 1 X help/recipients 1 X help/release 1 X help/set 1 X help/statistics 1 X help/subscribe 1 X help/unsubscribe 1 X news 1 X peer 1 X queued 1 X redux 1 X reformat 1 X setup 1 X src 1 X src/Makefile 1 X src/README 2 X src/REGISTRATION 1 X src/defs.h 2 X src/farch.c 3 X src/global.h 1 X src/list.c 4 X src/list.h 1 X src/listserv.c 6 X src/listserv.h 1 X src/misc.c 3 X src/pqueue.c 1 X src/pqueue.h 1 X src/sender.c 2 X src/serverd.c 2 X src/serverd.h 1 X src/signals.c 1 X src/start.c 2 X src/start.h 1 X src/struct.h 1 X src/sysmail.c 2 X src/sysmail.h 2 X src/tlock.c 1 X stds 1 X ulock 1 END_OF_FILE if test 2445 -ne `wc -c <'MANIFEST'`; then echo shar: \"'MANIFEST'\" unpacked with wrong size! fi # end of 'MANIFEST' fi if test ! -d 'archives' ; then echo shar: Creating directory \"'archives'\" mkdir 'archives' fi if test ! -d 'archives/listserv' ; then echo shar: Creating directory \"'archives/listserv'\" mkdir 'archives/listserv' fi if test -f 'archives/listserv/DIR' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/DIR'\" else echo shar: Extracting \"'archives/listserv/DIR'\" $236 characters$ sed "s/^X//" >'archives/listserv/DIR' <<'END_OF_FILE' info 1 /usr/server/archives/listserv Info about the master archive refcard 1 /usr/server/archives/listserv List of available requests example.dat 3 /usr/server/archives/listserv/example.dat Example file hosts 1 /etc System's hosts file END_OF_FILE if test 236 -ne `wc -c <'archives/listserv/DIR'`; then echo shar: \"'archives/listserv/DIR'\" unpacked with wrong size! fi # end of 'archives/listserv/DIR' fi if test -f 'archives/listserv/INDEX' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/INDEX'\" else echo shar: Extracting \"'archives/listserv/INDEX'\" $103 characters$ sed "s/^X//" >'archives/listserv/INDEX' <<'END_OF_FILE' LISTSERV /usr/server/archives/listserv pub /usr/server/archives/pub unix /usr/server/archives/pub/unix END_OF_FILE if test 103 -ne `wc -c <'archives/listserv/INDEX'`; then echo shar: \"'archives/listserv/INDEX'\" unpacked with wrong size! fi # end of 'archives/listserv/INDEX' fi if test ! -d 'archives/listserv/example.dat' ; then echo shar: Creating directory \"'archives/listserv/example.dat'\" mkdir 'archives/listserv/example.dat' fi if test -f 'archives/listserv/example.dat/example.dat1' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/example.dat/example.dat1'\" else echo shar: Extracting \"'archives/listserv/example.dat/example.dat1'\" $27 characters$ sed "s/^X//" >'archives/listserv/example.dat/example.dat1' <<'END_OF_FILE' Part 1 of file EXAMPLE.DAT END_OF_FILE if test 27 -ne `wc -c <'archives/listserv/example.dat/example.dat1'`; then echo shar: \"'archives/listserv/example.dat/example.dat1'\" unpacked with wrong size! fi # end of 'archives/listserv/example.dat/example.dat1' fi if test -f 'archives/listserv/example.dat/example.dat2' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/example.dat/example.dat2'\" else echo shar: Extracting \"'archives/listserv/example.dat/example.dat2'\" $27 characters$ sed "s/^X//" >'archives/listserv/example.dat/example.dat2' <<'END_OF_FILE' Part 2 of file EXAMPLE.DAT END_OF_FILE if test 27 -ne `wc -c <'archives/listserv/example.dat/example.dat2'`; then echo shar: \"'archives/listserv/example.dat/example.dat2'\" unpacked with wrong size! fi # end of 'archives/listserv/example.dat/example.dat2' fi if test -f 'archives/listserv/example.dat/example.dat3' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/example.dat/example.dat3'\" else echo shar: Extracting \"'archives/listserv/example.dat/example.dat3'\" $27 characters$ sed "s/^X//" >'archives/listserv/example.dat/example.dat3' <<'END_OF_FILE' Part 3 of file EXAMPLE.DAT END_OF_FILE if test 27 -ne `wc -c <'archives/listserv/example.dat/example.dat3'`; then echo shar: \"'archives/listserv/example.dat/example.dat3'\" unpacked with wrong size! fi # end of 'archives/listserv/example.dat/example.dat3' fi if test -f 'archives/listserv/info' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/info'\" else echo shar: Extracting \"'archives/listserv/info'\" $50 characters$ sed "s/^X//" >'archives/listserv/info' <<'END_OF_FILE' Place to put information for the LISTSERV archive END_OF_FILE if test 50 -ne `wc -c <'archives/listserv/info'`; then echo shar: \"'archives/listserv/info'\" unpacked with wrong size! fi # end of 'archives/listserv/info' fi if test -f 'archives/listserv/refcard' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/listserv/refcard'\" else echo shar: Extracting \"'archives/listserv/refcard'\" $289 characters$ sed "s/^X//" >'archives/listserv/refcard' <<'END_OF_FILE' Recognized commands are: X help [command] set <list> [<option> <value>] subscribe <list> <your name> unsubscribe <list> (or: signoff <list>) recipients <list> (or: review <list>) information <list> statistics <list> [subscriber email address(es)] lists index [archive] get <archive> <file> END_OF_FILE if test 289 -ne `wc -c <'archives/listserv/refcard'`; then echo shar: \"'archives/listserv/refcard'\" unpacked with wrong size! fi # end of 'archives/listserv/refcard' fi if test ! -d 'archives/pub' ; then echo shar: Creating directory \"'archives/pub'\" mkdir 'archives/pub' fi if test -f 'archives/pub/DIR' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/DIR'\" else echo shar: Extracting \"'archives/pub/DIR'\" $32 characters$ sed "s/^X//" >'archives/pub/DIR' <<'END_OF_FILE' info 1 /usr/server/archives/pub END_OF_FILE if test 32 -ne `wc -c <'archives/pub/DIR'`; then echo shar: \"'archives/pub/DIR'\" unpacked with wrong size! fi # end of 'archives/pub/DIR' fi if test -f 'archives/pub/INDEX' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/INDEX'\" else echo shar: Extracting \"'archives/pub/INDEX'\" $64 characters$ sed "s/^X//" >'archives/pub/INDEX' <<'END_OF_FILE' PUB /usr/server/archives/pub unix /usr/server/archives/pub/unix END_OF_FILE if test 64 -ne `wc -c <'archives/pub/INDEX'`; then echo shar: \"'archives/pub/INDEX'\" unpacked with wrong size! fi # end of 'archives/pub/INDEX' fi if test -f 'archives/pub/info' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/info'\" else echo shar: Extracting \"'archives/pub/info'\" $45 characters$ sed "s/^X//" >'archives/pub/info' <<'END_OF_FILE' Place to put information for the PUB archive END_OF_FILE if test 45 -ne `wc -c <'archives/pub/info'`; then echo shar: \"'archives/pub/info'\" unpacked with wrong size! fi # end of 'archives/pub/info' fi if test ! -d 'archives/pub/unix' ; then echo shar: Creating directory \"'archives/pub/unix'\" mkdir 'archives/pub/unix' fi if test -f 'archives/pub/unix/DIR' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/unix/DIR'\" else echo shar: Extracting \"'archives/pub/unix/DIR'\" $37 characters$ sed "s/^X//" >'archives/pub/unix/DIR' <<'END_OF_FILE' info 1 /usr/server/archives/pub/unix END_OF_FILE if test 37 -ne `wc -c <'archives/pub/unix/DIR'`; then echo shar: \"'archives/pub/unix/DIR'\" unpacked with wrong size! fi # end of 'archives/pub/unix/DIR' fi if test -f 'archives/pub/unix/INDEX' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/unix/INDEX'\" else echo shar: Extracting \"'archives/pub/unix/INDEX'\" $35 characters$ sed "s/^X//" >'archives/pub/unix/INDEX' <<'END_OF_FILE' UNIX /usr/server/archives/pub/unix END_OF_FILE if test 35 -ne `wc -c <'archives/pub/unix/INDEX'`; then echo shar: \"'archives/pub/unix/INDEX'\" unpacked with wrong size! fi # end of 'archives/pub/unix/INDEX' fi if test -f 'archives/pub/unix/info' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'archives/pub/unix/info'\" else echo shar: Extracting \"'archives/pub/unix/info'\" $40 characters$ sed "s/^X//" >'archives/pub/unix/info' <<'END_OF_FILE' Place to put info for the UNIX archive. END_OF_FILE if test 40 -ne `wc -c <'archives/pub/unix/info'`; then echo shar: \"'archives/pub/unix/info'\" unpacked with wrong size! fi # end of 'archives/pub/unix/info' fi if test -f 'config' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'config'\" else echo shar: Extracting \"'config'\" $3105 characters$ sed "s/^X//" >'config' <<'END_OF_FILE' X# X# Discussion list system configuration file X# X# version 5.31 X# X# December 1991 X# X# AGREEMENT: This software can be used and distributed freely as long X# as you do not remove or alter the Copyright notice in the file defs.h; X# this notice is #define'd in the symbol VERSION. Although you may alter X# the code provided, you may not alter the functions create_header() X# and create_multi_recipient_header() in list.c and listserv.c. X# By using this software you are bound by this agreement. X# This software comes with no warranties and cannot be sold for profit. X# The AGREEMENT and COPYRIGHT notices should be included in all source X# files when distributing this software. X# COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X# X# Note: On SysV and BSD Unix systems 'sendmail' is located under /usr/lib/ X# but on SysVR4 it is located under /usr/ucblib/; also, check the path to X# rmail if you are going to use it. X organization Boston University # define your site server listserv@sal -e -r statistics # define the server w/ restriction (opt.) list ermis ermis@sal -m 50 -e # define a list called 'ermis' list venus venus@sal -e # define a list called 'venus' (echo to screen) list herc herc@sal -r -s # define 'herc' w/ restricted mail and no subscription X # checking disable herc statistics # cannot get statistics for ermis serverd -l 3 -e # the serverd program may be run with the -l option X # serverd will delay if the load average is above 3 X # Note that the -1 flag is used by default by start restriction 20 # certain requests may not be serviced abover this # of users manager tasos@sal # email address of the manager of the system password ellines # password for the 'restart' and 'shutdown' requests comment server #Actual comment must be preceded by a pound sign comment ermis #Same here comment venus #Venus Distribution List frequency 0 # how often to read mail (in seconds >= 0) limit message 65536 # reject messages longer than 65536 bytes option sysv_ps # forces use of the SYS V ps command; other choice is bsd_ps option bsd_mail # define it if BSD mail is available option post_mail # Post to news; other choice is gate_mail mailmethod system X#mailmethod env_var LOGNAME /bin/rmail # Valid 'mailmethod' options: X # telnet X # sendmail /usr/lib/sendmail -bs X # sendmail /usr/lib/sendmail -t (IDA) X # rmail /bin/rmail X # binmail X # env_var VARIABLE /bin/mail X # env_var VARIABLE /usr/lib/sendmail -t X # env_var VARIABLE /bin/rmail X # env_var VARIABLE /usr/bin/mail X# X# WARNING: All other mailmethods except 'system' and 'sendmail' X# will become obsolete soon. X# X#option bad_telnet # use this flag when a telnet session is not terminating X# X# IMPORTANT NOTE: X# X# listserv also recognizes the requests 'restart' and 'shutdown' followed by X# a password, that can be used to remotely restart and shutdown the server X# system. The password is defined in the 'config' file using the 'password' X# directive followed by the actual password. X# This feature is not documented in the man page for obvious reasons. END_OF_FILE if test 3105 -ne `wc -c <'config'`; then echo shar: \"'config'\" unpacked with wrong size! fi # end of 'config' fi if test ! -d 'doc' ; then echo shar: Creating directory \"'doc'\" mkdir 'doc' fi if test -f 'doc/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'doc/README'\" else echo shar: Extracting \"'doc/README'\" $756 characters$ sed "s/^X//" >'doc/README' <<'END_OF_FILE' X To install the man pages permanently on your system you will need to do the following as superuser: X X% cp server.nr farch.nr queue.nr /usr/man/cat1 <- or wherever the man pages are X% cd /usr/man/cat1 X% compress server.nr farch.nr queue.nr X% mv server.nr.Z server.1 X% mv farch.nr.Z farch.1 X% mv queue.nr.Z queue.1 X% chmod 444 server.1 farch.1 queue.1 X% vi Index <--- if availbable X add the following lines in Index in the appropriate alphabetic location: X server.1:server: X farch.1:farch: X queue.1:queue: X% vi /usr/man/whatis <-- or whatever file is used when doing man -k X add the following lines in whatis: X server (1) - discussion list server system X farch (1) - file archiving for list server system X queue (1) - mail queueing for list server system END_OF_FILE if test 756 -ne `wc -c <'doc/README'`; then echo shar: \"'doc/README'\" unpacked with wrong size! fi # end of 'doc/README' fi if test -f 'doc/farch.nr' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'doc/farch.nr'\" else echo shar: Extracting \"'doc/farch.nr'\" $4751 characters$ sed "s/^X//" >'doc/farch.nr' <<'END_OF_FILE' X X X farch(1) USER COMMANDS farch(1) X X X NNNNAAAAMMMMEEEE X farch - archive files in /usr/server/archives X SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS X farch [-n] [-b] [-s size] [-a archive] [-d dir] [-t file] X files X DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN X _f_a_r_c_h is used to archive files in /usr/server/archives. X Archives reside under that directory as subdirectories; the X default is _l_i_s_t_s_e_r_v, and it is also the master archive. X Archives are hierarchically structured, and each archive has X at least two files in its directory: X X INDEX X A list of all subarchives including itself; the format X is one line per archive with the archive's name fol- X lowed by the archive's full path. X X DIR A list of files available from that archive; the format X is one line per file, followed by the number of parts X it may be split into, followed by the full path to the X directory these parts can be found, followed by a short X descriptive message about the file (optional). X X The following command line options are recognized: X X -n Do not split files when archiving them. X X -b Input files are binary; they are uuencoded before X archived. X X -s size X Specify the maximum _s_i_z_e in kilobytes of each of the X subparts (default is 64). X X -a archive X Specify the _a_r_c_h_i_v_e that the input files will be X archived under (default is listserv). X X -d dir X Specify the _d_i_rectory that the output files are to be X placed (default is /usr/server/archives/listserv). If X the directory does not exist, it will be created. X X -t file X Input files are tarred into _f_i_l_e which is then archived X (-b flag is automatically turned on). X AAAARRRRCCCCHHHHIIIIVVVVIIIINNNNGGGG AAAA FFFFIIIILLLLEEEE X _f_a_r_c_h by default splits the input files if necessary (or the X tar file, if any), into files of maximum size as specified. X X X Anastasios Kotsikonas 1 X X X X X X farch(1) USER COMMANDS farch(1) X X X X Each part will contain as many complete lines from the ori- X ginal input file as possible, without exceeding the speci- X fied size. Binary files are uuencoded before they are X archived, and all archived files are compressed, if possi- X ble. X AAAADDDDDDDDIIIINNNNGGGG AAAA NNNNEEEEWWWW AAAARRRRCCCCHHHHIIIIVVVVEEEE X Step 1 X Create a directory under /usr/server/archives with the X new archive's name. X X Step 2 X Edit the master archive's index file X (/usr/server/archives/listserv/INDEX) and add the new X archive along with its path at the bottom of the file. X The first line of every INDEX file should be the X archive that owns it. Also edit every ancestor X archive's INDEX file, if the new archive is not a child X of the default. X X Step 3 X Create a new INDEX file in the new archive's directory X and put an entry for itself. X X Step 4 X Create an empty DIR file in the new archive's direc- X tory. X XEEEEXXXXAAAAMMMMPPPPLLLLEEEESSSS X Archive src/data and src/data2 under listserv, using a max- X imum file size of 1K; the output file(s) will be placed in X /tmp: X X % farch -s 1 -d /tmp src/data src/data2 X X Archive /etc/hosts under archive unix: X X % farch -a unix -d /etc /etc/hosts X X Tar and archive all files in /usr/src: X X % farch -t source /usr/src/*.c X Descriptive messages about these files are added manually X into the archive's DIR file. X RRRREEEESSSSTTTTRRRRIIIICCCCTTTTIIIIOOOONNNNSSSS X The input files must use only lower case characters of the X alphabet. X SSSSEEEEEEEE AAAALLLLSSSSOOOO X server(1) X X X X Anastasios Kotsikonas 2 X X X X X X farch(1) USER COMMANDS farch(1) X X X AAAAUUUUTTTTHHHHOOOORRRR X Anastasios C. Kotsikonas, Boston University. X Copyright (c) 1991, Anastasios Kotsikonas X Comments to tasos@cs.bu.edu X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X Anastasios Kotsikonas 3 X X X END_OF_FILE echo shar: 297 control characters may be missing from \"'doc/farch.nr'\" if test 4751 -ne `wc -c <'doc/farch.nr'`; then echo shar: \"'doc/farch.nr'\" unpacked with wrong size! fi # end of 'doc/farch.nr' fi if test -f 'doc/queue.nr' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'doc/queue.nr'\" else echo shar: Extracting \"'doc/queue.nr'\" $3302 characters$ sed "s/^X//" >'doc/queue.nr' <<'END_OF_FILE' X X X queue(1) USER COMMANDS queue(1) X X X NNNNAAAAMMMMEEEE X queued - mail queue daemon X SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS X qqqquuuueeeeuuuueeeedddd <ffffrrrreeeeqqqquuuueeeennnnccccyyyy> <mmmmaaaannnnaaaaggggeeeerrrr> X NNNNAAAAMMMMEEEE X pqueue - process the specified mail queue files X SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS X ppppqqqquuuueeeeuuuueeee [----eeee] [----DDDD] <ffffiiiilllleeeessss> X OOOOVVVVEEEERRRRVVVVIIIIEEEEWWWW X This part of the system can be employed only when using the X _s_y_s_t_e_m mailmethod (see _s_e_r_v_e_r(_1)). Messages and requests X not delivered due to network problems are queued by the X server system in the directory /usr/server/mqueue. This part X of the system attempts periodic redelivery of these files. X If problems still persist, files (messages) that cannot be X delivered are requeued. X DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN:::: qqqquuuueeeeuuuueeeedddd X This is the daemon that looks for files in the mail queue. X It uses _p_q_u_e_u_e for redelivery. The queue is checked every X _f_r_e_q_u_e_n_c_y seconds. Whenever an error occurs with _p_q_u_e_u_e, X _q_u_e_u_e_d sends a mail message to _m_a_n_a_g_e_r and aborts. X X _q_u_e_u_e_d is not spawned by _s_t_a_r_t in order to reduce the number X of processes running, since the probability of messages X being queued is very low. Instead, it should be started X manually whenever there are files in the mail queue direc- X tory. X DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN:::: ppppqqqquuuueeeeuuuueeee X The _f_i_l_e_s given as arguments are redelivered. If any of X these cannot be redelivered, they are requeued and will be X processed in the next run. _p_q_u_e_u_e reports to the file X /usr/server/.report.pqueue X X The following command line options are recognized: X X -e Echo reports to the screen. X X -D Turns debugging on; a copy of the last SMPT transaction X can be found in the files /usr/server/sent and X /usr/server/received. Warning: these files are also X used by _l_i_s_t and _l_i_s_t_s_e_r_v when they have their debug X mode on, so use caution. X NNNNOOOOTTTTEEEE X This mail queuing system should not be confused with the one X implemented by sendmail. X X X Anastasios Kotsikonas 1 X X X X X X queue(1) USER COMMANDS queue(1) X X X SSSSEEEEEEEE AAAALLLLSSSSOOOO X server(1) X AAAAUUUUTTTTHHHHOOOORRRR X Anastasios C. Kotsikonas, Boston University. X Copyright (c) 1991, Anastasios Kotsikonas X Comments to tasos@cs.bu.edu X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X Anastasios Kotsikonas 2 X X X END_OF_FILE echo shar: 447 control characters may be missing from \"'doc/queue.nr'\" if test 3302 -ne `wc -c <'doc/queue.nr'`; then echo shar: \"'doc/queue.nr'\" unpacked with wrong size! fi # end of 'doc/queue.nr' fi if test -f 'flocks' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'flocks'\" else echo shar: Extracting \"'flocks'\" $102 characters$ sed "s/^X//" >'flocks' <<'END_OF_FILE' X#include "/usr/server/src/defs.h" rm -f SERVERD_LOCK_FILE rm -f LIST_LOCK_FILE rm -f SERVER_LOCK_FILE END_OF_FILE if test 102 -ne `wc -c <'flocks'`; then echo shar: \"'flocks'\" unpacked with wrong size! fi # end of 'flocks' fi if test ! -d 'help' ; then echo shar: Creating directory \"'help'\" mkdir 'help' fi if test -f 'help/general' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/general'\" else echo shar: Extracting \"'help/general'\" $2544 characters$ sed "s/^X//" >'help/general' <<'END_OF_FILE' Recognized requests are: X X******************************************************************************* X help [request] X-------------- Without arguments, this file. Otherwise get specific information on the selected topic. X X******************************************************************************* X set <list> [<option> <value>] X----------------------------- Without the optional arguments, get a list of all current settings for the specified list. Otherwise change the option to the new value for that list. X X******************************************************************************* X subscribe <list> <your name> X---------------------------- The only way to subscribe to a list. X X******************************************************************************* X unsubscribe <list> (or: signoff <list>) X--------------------------------------- Remove yourself from the specified list. X X******************************************************************************* X recipients <list> (or: review <list>) X------------------------------------- Get a list of all people subscribed in the specified list. X X******************************************************************************* X information <list> X------------------ Get information about the specified list. X X******************************************************************************* X statistics <list> [subscriber email address(es)] X------------------------------------------------ Get a list of subscribers along with the number of messages each one of them has sent to the specified list. If the optional email addresses are given, then statistics will be collected for these users only. X X******************************************************************************* X lists X----- Get a list of discussion lists that are served by this server. X X******************************************************************************* X index [archive] X--------------- Get a list of files in the selected archive, or the master archive if no archive was specified. X X******************************************************************************* X get <archive> <file> [parts] X---------------------------- Get the requested file from the specified archive. Certain subparts may be obtained by specifying them as optional arguments. X X******************************************************************************* X release X------- Get information about the current release of this listserv system. X X******************************************************************************* END_OF_FILE if test 2544 -ne `wc -c <'help/general'`; then echo shar: \"'help/general'\" unpacked with wrong size! fi # end of 'help/general' fi if test -f 'help/get' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/get'\" else echo shar: Extracting \"'help/get'\" $806 characters$ sed "s/^X//" >'help/get' <<'END_OF_FILE' Syntax: get <archive> <file> [parts] X Get the specified file from the specified archive. The file may X have been split into parts because some mailers cannot send large X files, and in this case you will receive as many messages as the X number of parts the file has been split into. Binary files are X uuencoded, so you will need to combine all the parts sent and X uudecode. The requested file may be a tar file (containing other X files and perhaps directories) in which case when you uudecode, X a tar file will be created and you will need to run the UNIX X utility 'tar' on it to extract the files and directories. X X If certain parts are specified, then only these parts (if they exist) X will be sent. The parts are specified as numbers separated by spaces. X You may not specify ranges of parts (e.g. 1-3). END_OF_FILE if test 806 -ne `wc -c <'help/get'`; then echo shar: \"'help/get'\" unpacked with wrong size! fi # end of 'help/get' fi if test -f 'help/index' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/index'\" else echo shar: Extracting \"'help/index'\" $292 characters$ sed "s/^X//" >'help/index' <<'END_OF_FILE' Syntax: index [archive] X Get a list of files for the specified archive, or listserv -- the X master archive, if none given. Files are actually listed for X the requested archive, plus all of its subarchives. Obviously X the master archive will list all of the available files from this X server. END_OF_FILE if test 292 -ne `wc -c <'help/index'`; then echo shar: \"'help/index'\" unpacked with wrong size! fi # end of 'help/index' fi if test -f 'help/information' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/information'\" else echo shar: Extracting \"'help/information'\" $159 characters$ sed "s/^X//" >'help/information' <<'END_OF_FILE' Syntax: information <list> X Get information about the specified list. This usually includes X its purpose and certain restrictions for posting messages. END_OF_FILE if test 159 -ne `wc -c <'help/information'`; then echo shar: \"'help/information'\" unpacked with wrong size! fi # end of 'help/information' fi if test -f 'help/lists' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/lists'\" else echo shar: Extracting \"'help/lists'\" $152 characters$ sed "s/^X//" >'help/lists' <<'END_OF_FILE' Syntax: lists X Get a list of all discussion lists served by this server; the list X consists of email addresses and a brief comment for each one. END_OF_FILE if test 152 -ne `wc -c <'help/lists'`; then echo shar: \"'help/lists'\" unpacked with wrong size! fi # end of 'help/lists' fi if test -f 'help/recipients' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/recipients'\" else echo shar: Extracting \"'help/recipients'\" $288 characters$ sed "s/^X//" >'help/recipients' <<'END_OF_FILE' Syntax: recipients <list> (or: review <list>) X Get a listing of the current subscribers for the specified list; X each person's email address is followed by his/her name. If the list X is linked with any peer lists, your request will be forwarded to X the appropriate server(s) also. END_OF_FILE if test 288 -ne `wc -c <'help/recipients'`; then echo shar: \"'help/recipients'\" unpacked with wrong size! fi # end of 'help/recipients' fi if test -f 'help/release' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/release'\" else echo shar: Extracting \"'help/release'\" $84 characters$ sed "s/^X//" >'help/release' <<'END_OF_FILE' Syntax: release X Get information about the current release of this listserv system. END_OF_FILE if test 84 -ne `wc -c <'help/release'`; then echo shar: \"'help/release'\" unpacked with wrong size! fi # end of 'help/release' fi if test -f 'help/set' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/set'\" else echo shar: Extracting \"'help/set'\" $590 characters$ sed "s/^X//" >'help/set' <<'END_OF_FILE' Syntax: set <list> [<option> <value>] X Without the optional arguments, get a list of all current settings for X the specified list. Otherwise change the option to the new value for X that list, as follows: X X option can be: mail X value can be: ack, noack, postpone X X 'set <list>': get the current option settings for the list X 'set <list> mail ack': your message is sent back to you X 'set <list> mail noack': your message is not sent back to you X 'set <list> mail postpone': no messages will be sent to you until you X change mode again END_OF_FILE if test 590 -ne `wc -c <'help/set'`; then echo shar: \"'help/set'\" unpacked with wrong size! fi # end of 'help/set' fi if test -f 'help/statistics' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/statistics'\" else echo shar: Extracting \"'help/statistics'\" $473 characters$ sed "s/^X//" >'help/statistics' <<'END_OF_FILE' Syntax: statistics <list> [subscriber email address(es)] X Get statistical information for all subscribers, or for the specified X one(s) only, in the specified list. Each email address is followed X by a count of the number of messages sent to this list by this user X to date. Wild characters are allowed when inquiring about specific X subscribers. If the list is linked with other peer lists, your request X will be forwarded to the appropriate server(s) also. END_OF_FILE if test 473 -ne `wc -c <'help/statistics'`; then echo shar: \"'help/statistics'\" unpacked with wrong size! fi # end of 'help/statistics' fi if test -f 'help/subscribe' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/subscribe'\" else echo shar: Extracting \"'help/subscribe'\" $140 characters$ sed "s/^X//" >'help/subscribe' <<'END_OF_FILE' Syntax: subscribe <list> <your full name> X The only way to subscribe to a list. Any extraneous characters in X your name are removed. END_OF_FILE if test 140 -ne `wc -c <'help/subscribe'`; then echo shar: \"'help/subscribe'\" unpacked with wrong size! fi # end of 'help/subscribe' fi if test -f 'help/unsubscribe' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'help/unsubscribe'\" else echo shar: Extracting \"'help/unsubscribe'\" $85 characters$ sed "s/^X//" >'help/unsubscribe' <<'END_OF_FILE' Syntax: unsubscribe <list> (or: signoff <list>) X Remove yourself from a list. END_OF_FILE if test 85 -ne `wc -c <'help/unsubscribe'`; then echo shar: \"'help/unsubscribe'\" unpacked with wrong size! fi # end of 'help/unsubscribe' fi if test -f 'news' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'news'\" else echo shar: Extracting \"'news'\" $1891 characters$ sed "s/^X//" >'news' <<'END_OF_FILE' X#!/bin/sh X# Shell script to add a news group to a discussion list. X# X# Usage: news <LIST_ALIAS> <news group> <news email address> <news mode> X# X# where: X# LIST_ALIAS: a local list alias, capitalized, that is to be connected to X# the news group. X# news group: the news group name (e.g. alt.sex) X# news email address: full email address of the news source. X# news mode: "receive" if the local list will only be receiving articles, X# or "send_receive" if the local list will post to the news group as X# well. X PROG=`basename $0` if [ $# -lt 4 ]; then X echo Usage: $PROG \<LIST_ALIAS\> \<news group\> \<$PROG email address\> \<$PROG mode\> X exit 1 fi X ARGS=$PROG\ $* DIR=/usr/server/lists/`echo $1 | tr '[a-z]' '[A-Z]'` REPORT=/usr/server/.report.server CONFIG=/usr/server/config XFILE=$DIR/.news GROUP=`echo $2 | tr '[A-Z]' '[a-z]'` XEMAIL=`echo $3 | tr '[A-Z]' '[a-z]'` shift; shift; shift X if [ ! -d $DIR ]; then X echo $DIR: no such list X exit 2 fi if [ ! -r $CONFIG ]; then X echo Cannot open $CONFIG X exit 2 fi if [ ! -r $FILE ]; then X echo Cannot open $FILE X exit 2 fi if [ "$1" = "receive" ]; then X MODE=POSTPONE elif [ "$1" = "send_receive" ]; then X MODE=NOACK else X echo Token $1 not recognized X exit 2 fi X echo >> $REPORT echo --- NEW MAIL HAS ARRIVED --- >> $REPORT echo $ARGS >> $REPORT LOCAL=`grep -i "^list *$REMOTE_ALIAS *$EMAIL" $CONFIG | awk '{ print $2 }'` if [ "$LOCAL" = "" ]; then X LOCAL=`grep -i "^server\ *$EMAIL" $CONFIG | awk '{ print $2 }'` X txt=server else X txt=list fi if [ "$LOCAL" != "" ]; then X echo Cannot add local $txt $LOCAL as $PROG to $FILE >&1 | tee -a $REPORT else X if [ "`grep -i $EMAIL $FILE`" != "" ] || [ "`grep -i $GROUP $FILE`" != "" ] X then X echo $EMAIL\: Already subscribed as a $PROG group in $FILE >&1 | \ X tee -a $REPORT X else X echo $EMAIL $MODE $GROUP >> $FILE X fi fi echo Time/Date: `date` >> $REPORT exit 0 END_OF_FILE if test 1891 -ne `wc -c <'news'`; then echo shar: \"'news'\" unpacked with wrong size! fi # end of 'news' fi if test -f 'peer' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'peer'\" else echo shar: Extracting \"'peer'\" $1838 characters$ sed "s/^X//" >'peer' <<'END_OF_FILE' X#!/bin/sh X# Shell script to add a peer list to a discussion list. X# X# Usage: peer <LIST_ALIAS> <remote alias> <remote peer email address> X# <remote peer listserv email address> X# where: X# LIST_ALIAS: a local list alias, capitalized, that is to be connected to X# the new peer. X# remote alias: the peer's list alias on the remote machine X# remote peer email address: full email address of the peer list to be added X# remote peer listserv email address: full email address of the server X# that handles the remote peer. X PROG=`basename $0` if [ $# -lt 4 ]; then X echo Usage: $PROG \<LIST_ALIAS\> \<remote alias\> \ X\<remote $PROG email address\> \<remote $PROG listserv email address\> X exit 1 fi X ARGS=$PROG\ $* DIR=/usr/server/lists/`echo $1 | tr '[a-z]' '[A-Z]'` REMOTE_ALIAS=`echo $2 | tr '[A-Z]' '[a-z]'` XEMAIL=`echo $3 | tr '[A-Z]' '[a-z]'` REMOTE_SERVER=`echo $4 | tr '[A-Z]' '[a-z]'` REPORT=/usr/server/.report.server CONFIG=/usr/server/config MODE=NOACK XFILE=$DIR/.peers shift; shift; shift; shift X if [ ! -d $DIR ]; then X echo $DIR: no such list X exit 2 fi if [ ! -r $CONFIG ]; then X echo Cannot open $CONFIG X exit 2 fi if [ ! -r $FILE ]; then X echo Cannot open $FILE X exit 2 fi X echo >> $REPORT echo --- NEW MAIL HAS ARRIVED --- >> $REPORT echo $ARGS >> $REPORT LOCAL=`grep -i "^list *$REMOTE_ALIAS *$EMAIL" $CONFIG | awk '{ print $2 }'` if [ "$LOCAL" = "" ]; then X LOCAL=`grep -i "^server\ *$EMAIL" $CONFIG | awk '{ print $2 }'` X txt=server else X txt=list fi if [ "$LOCAL" != "" ]; then X echo Cannot add local $txt $LOCAL as $PROG to $FILE >&1 | tee -a $REPORT else X if [ "`grep -i $EMAIL $FILE`" != "" ]; then X echo $EMAIL\: Already subscribed as a $PROG in $FILE >&1 | tee -a $REPORT X else X echo $EMAIL $MODE $REMOTE_ALIAS $REMOTE_SERVER >> $FILE X fi fi echo Time/Date: `date` >> $REPORT exit 0 END_OF_FILE if test 1838 -ne `wc -c <'peer'`; then echo shar: \"'peer'\" unpacked with wrong size! fi # end of 'peer' fi if test -f 'queued' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'queued'\" else echo shar: Extracting \"'queued'\" $703 characters$ sed "s/^X//" >'queued' <<'END_OF_FILE' X#!/bin/sh X# queued <frequency> <manager> X# Daemon to process the mail queue periodically. The frequency is given X# in seconds. X if [ $# -ne 2 ]; then X echo Usage: `basename $0` \<frequency\> \<manager\> X exit 3 fi DIR=/usr/server/mqueue XFREQ=$1 MANAGER=$2 shift; shift if [ ! -d $DIR ]; then X echo $DIR directory missing X exit 3 fi cd $DIR PWD=`pwd` while [ 007 ]; do X for i in `\ls` X do X if [ ! -r /usr/server/pqueue ]; then X echo queued aborts: pqueue not found | /bin/rmail $MANAGER X exit 1 X fi X /usr/server/pqueue -e $PWD/$i X if [ $? -gt 0 ]; then X echo queued aborts: pqueue exit status $? | /bin/rmail $MANAGER X exit 1 X fi X done X sleep $FREQ done exit 0 END_OF_FILE if test 703 -ne `wc -c <'queued'`; then echo shar: \"'queued'\" unpacked with wrong size! fi # end of 'queued' fi if test -f 'redux' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'redux'\" else echo shar: Extracting \"'redux'\" $494 characters$ sed "s/^X//" >'redux' <<'END_OF_FILE' X#!/bin/sh X# Script to reduce the size of mboxes by removing unnecessary fields in X# the header of each message. X# Usage: redux [mbox-file] (default is ./mbox) X XFILE=$1 if [ $# = 0 ]; then X FILE=./mbox fi if [ ! -r $FILE ]; then X echo File $FILE not found. X exit fi echo Reducing $FILE\; reduced file in /tmp/reduced >&2 X/usr/bin/egrep -v "^Cc: |^ with BSMTP;|^Received: |^Status: |^Message-Id: |^Comment: |^Reply-To: |^Sender: |^To: |^Return-Path: |^ id " $FILE > /tmp/reduced exit END_OF_FILE if test 494 -ne `wc -c <'redux'`; then echo shar: \"'redux'\" unpacked with wrong size! fi # end of 'redux' fi if test -f 'reformat' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'reformat'\" else echo shar: Extracting \"'reformat'\" $358 characters$ sed "s/^X//" >'reformat' <<'END_OF_FILE' X#!/bin/sh X# This script reformats incoming messages; mailers are supposed to convert X# any message text starting with "From " to ">From ", but some fail to do it. X# This script should be used instead in the aliases file. For example: X# X#test-list:"|/bin/cat | /usr/server/reformat >> /usr/server/lists/TEST-LIST/mail read x echo $x sed 's/^From\ /\>From\ /' END_OF_FILE if test 358 -ne `wc -c <'reformat'`; then echo shar: \"'reformat'\" unpacked with wrong size! fi # end of 'reformat' fi if test -f 'setup' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'setup'\" else echo shar: Extracting \"'setup'\" $992 characters$ sed "s/^X//" >'setup' <<'END_OF_FILE' X#!/bin/sh cd /usr/server if [ ! -d lists ]; then X echo Creating directory `pwd`/lists X mkdir lists fi if [ ! -d mqueue ]; then X echo Creating directory `pwd`/mqueue X mkdir mqueue fi cd src make make install cd .. if [ ! -r start ]; then X echo start not found X exit 2 fi if [ ! -r serverd ]; then X echo serverd not found X exit 2 fi if [ ! -r list ]; then X echo list not found X exit 2 fi if [ ! -r listserv ]; then X echo listserv not found X exit 2 fi if [ ! -r config ]; then X echo config not found X exit 2 fi if [ ! -r .awk ]; then X echo .awk not found X exit 2 fi if [ ! -r .stats ]; then X echo .stats not found X exit 2 fi if [ ! -r .grep ]; then X echo .grep not found X exit 2 fi if [ ! -r .ignored ]; then X echo .ignored not found X exit 2 fi touch requests chmod 700 start serverd list listserv .awk .stats .grep ulock redux \ peer news stds queued chmod 755 reformat chmod 733 . chmod 711 lists chmod 600 config chmod 666 requests echo List Server System ready. exit 0 END_OF_FILE if test 992 -ne `wc -c <'setup'`; then echo shar: \"'setup'\" unpacked with wrong size! fi chmod +x 'setup' # end of 'setup' fi if test ! -d 'src' ; then echo shar: Creating directory \"'src'\" mkdir 'src' fi if test -f 'src/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/Makefile'\" else echo shar: Extracting \"'src/Makefile'\" $2146 characters$ sed "s/^X//" >'src/Makefile' <<'END_OF_FILE' X# X# Makefile for listserv X# X# See the README file and the bottom of ../doc/server.nr for machine-specific X# instructions on compiling and installing this program. X# X# If you wish to use an ANSI C compiler and preprocessor, you will have X# to do the following first: X# % ../stds *.[ch] X# X SHELL = /bin/sh HOMEDIR = /usr/server CC = cc CPP = /lib/cpp CFLAGS = -g LDFLAGS = -g X ARCHIVED = signals.o sender.o misc.o sysmail.o ARCHIVE_LIB = libserver.a TARGETS = listserv list serverd start tlock farch pqueue X all: $(ARCHIVE_LIB) $(TARGETS) X X$(ARCHIVE_LIB): $(ARCHIVED) X @rm -f $(ARCHIVE_LIB) X ar cr $(ARCHIVE_LIB) $(ARCHIVED) X @if [ -f /usr/bin/ranlib -o -f /bin/ranlib ]; then \ X echo ranlib $(ARCHIVE_LIB); \ X ranlib $(ARCHIVE_LIB);\ X else\ X echo ar ts $(ARCHIVE_LIB); \ X ar ts $(ARCHIVE_LIB); \ X fi X listserv: listserv.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ -lm X list: list.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ X serverd: serverd.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ -lm X start: start.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ X tlock: tlock.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ X farch: farch.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ X pqueue: pqueue.o $(ARCHIVE_LIB) X $(CC) $(LDFLAGS) $@.o $(ARCHIVE_LIB) -o $@ X install: $(ARCHIVE_LIB) $(TARGETS) $(HOMEDIR) X @for t in $(TARGETS); do \ X echo Installing "$$t"; \ X rm -f $(HOMEDIR)/"$$t"; \ X cp "$$t" $(HOMEDIR); \ X done X X$(HOMEDIR): X mkdir $(HOMEDIR) X clean: X rm -f $(TARGETS) $(ARCHIVE_LIB) *.o X X# Hand-generated dependencies listserv.o: defs.h struct.h global.h listserv.h X list.o: defs.h struct.h global.h list.h X serverd.o: defs.h struct.h global.h serverd.h X start.o: defs.h struct.h global.h start.h X sender.o: defs.h X signals.o: defs.h struct.h X sysmail.o: defs.h struct.h sysmail.h X misc.o: defs.h struct.h X tlock.o: defs.h X farch.o: defs.h struct.h listserv.h X pqueue.o: defs.h struct.h global.h pqueue.h END_OF_FILE if test 2146 -ne `wc -c <'src/Makefile'`; then echo shar: \"'src/Makefile'\" unpacked with wrong size! fi # end of 'src/Makefile' fi if test -f 'src/REGISTRATION' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/REGISTRATION'\" else echo shar: Extracting \"'src/REGISTRATION'\" $468 characters$ sed "s/^X//" >'src/REGISTRATION' <<'END_OF_FILE' X X DISCUSSION LIST SERVER SYSTEM X ----------------------------- X X Copy Registration X X tasos@cs.bu.edu X Keep an eye on the anonymous ftp site cs.bu.edu (128.197.10.1) for any updates, in the directory pub/listserv X If you use this software and have not filled out a registration form before, please email me the following information: X Name: XEmail address: Organization: Address: Phone: Type of computer system: Version of server using (% list -v): Comments: END_OF_FILE if test 468 -ne `wc -c <'src/REGISTRATION'`; then echo shar: \"'src/REGISTRATION'\" unpacked with wrong size! fi # end of 'src/REGISTRATION' fi if test -f 'src/global.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/global.h'\" else echo shar: Extracting \"'src/global.h'\" $1141 characters$ sed "s/^X//" >'src/global.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X*/ X char subscribersf [MAX_LINE]; char newsf [MAX_LINE]; char peersf [MAX_LINE]; char aliasesf [MAX_LINE]; char headersf [MAX_LINE]; char restrictedf [MAX_LINE]; char ignoredf [MAX_LINE]; char list_mail_f [MAX_LINE]; char report_listf [MAX_LINE]; char server_ignoredf [MAX_LINE]; char infof [MAX_LINE]; char welcomef [MAX_LINE]; char message_idsf [MAX_LINE]; char message_id [MAX_LINE]; SYS sys; COMMANDS commands [MAX_COMMANDS]; /* Set of recognizable commands */ BOOLEAN debug = FALSE; END_OF_FILE if test 1141 -ne `wc -c <'src/global.h'`; then echo shar: \"'src/global.h'\" unpacked with wrong size! fi # end of 'src/global.h' fi if test -f 'src/list.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/list.h'\" else echo shar: Extracting \"'src/list.h'\" $2870 characters$ sed "s/^X//" >'src/list.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X X Below are the #define's pertinent to list.c X X Preserve any quotes and new lines that appear below; change only path names. X X ALWAYS SPECIFY ABSOLUTE PATHS. X X*/ X X#define MAIL_COPY ".messages" X#define MSG ".msg" X#define MAILFORWARD ".mailforward" X#define MSG_NO ".msgno" X#define MBOX "mbox" /* place to save list's messages */ X#define FROM "From: " /* Keep this line and the following from */ X#define ORIGIN "Originator: " X#define REPLY_TO "Reply-To: " X#define NO_RECIPIENT_FILE "NONE" X X#define PREPEND(str, buf) \ X { char copy [1024];\ X RESET (copy);\ X strcat (copy, buf);\ X sprintf (buf, "%s%s", str, copy);\ X } X char mboxf [MAX_LINE]; char msg_nof [MAX_LINE]; char mailforwardf [MAX_LINE]; char msgf [MAX_LINE]; char mail_copyf [MAX_LINE]; char list_moderated_f [MAX_LINE]; char **multi_recipients; /* List of multiple recipient addresses */ char *list_alias = NULL; /* arg to the -L command option */ X XFILE *mail = NULL; /* Source of messages */ XFILE *report = NULL; /* Progress report to the administrator */ XFILE *subscribers = NULL; /* List of subscribers */ XFILE *news = NULL; /* List of newsgroups */ XFILE *peers = NULL; /* List of peers */ XFILE *restricted = NULL; /* List of people whose messages require special X handling */ XFILE *ignored = NULL; /* List of people whose messages are ignored */ XFILE *msg_no = NULL; /* Last message count */ XFILE *headers = NULL; /* File containing headers of messages only */ XFILE *message_ids = NULL; /* File containing message ids */ X BOOLEAN tty_echo = FALSE;/* -e option off */ BOOLEAN send_to_subscribers = TRUE; /* -r option off */ BOOLEAN execute_once = FALSE;/* -1 option off */ BOOLEAN errors_to_manager = FALSE;/* -f option off */ BOOLEAN multi_recip = FALSE;/* -m option off */ BOOLEAN do_not_check_subscriptions = FALSE;/* -s option off */ BOOLEAN article_replies_to_author = FALSE;/* -p option off */ int returned_msg = 0; /* Counts the invalid messages */ int public_msg = 0; /* Counts the public messages */ int listid = -1; int maxrecipients = 0; END_OF_FILE if test 2870 -ne `wc -c <'src/list.h'`; then echo shar: \"'src/list.h'\" unpacked with wrong size! fi # end of 'src/list.h' fi if test -f 'src/listserv.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/listserv.h'\" else echo shar: Extracting \"'src/listserv.h'\" $4151 characters$ sed "s/^X//" >'src/listserv.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X X Below are the #define's pertinent to listserv.c X X Preserve any quotes and new lines that appear below; change only path names. X X ALWAYS SPECIFY ABSOLUTE PATHS. X X*/ X X#define UPDATE_DATE "December 9, 1991" X#define MAIL_COPY PATH/.messages" X#define OLD_SUBSCRIBERS PATH/.oldsubscribers" X#define MAILFORWARD PATH/.mailforward" X#define MSG_NO PATH/.msgno" X#define RECIP_FILE ".recip" X#define AWK_PROG PATH/.awk" X#define STATS_PROG PATH/.stats" X#define SERVER_MBOX PATH/mbox" /* place to save server's messages */ X#define STATS_FILE "/tmp/stats" X#define USERS_FILE "/tmp/users" X#define HELP_GENERAL PATH/help/general" X#define HELP_SET PATH/help/set" X#define HELP_SUBSCRIBE PATH/help/subscribe" X#define HELP_UNSUBSCRIBE PATH/help/unsubscribe" X#define HELP_RECIPIENTS PATH/help/recipients" X#define HELP_INFORMATION PATH/help/information" X#define HELP_STATISTICS PATH/help/statistics" X#define HELP_LISTS PATH/help/lists" X#define HELP_INDEX PATH/help/index" X#define HELP_GET PATH/help/get" X#define HELP_RELEASE PATH/help/release" X#define ARCHIVE_DIR PATH/archives" X#define DEFAULT_ARCHIVE "listserv" X#define INDEX "INDEX" X#define DIR "DIR" X#define PEER_SERVER_REQUEST "Peer Server Request: " X#define START_OF_SIGNATURE "--" X#define MAX_SET_OPTIONS 1 X X#define DELIVER_MAIL(recipient) \ X if (sys.options & USE_SYSMAIL) \ X sysmail (MAILFORWARD); \ X else \ X syscom ("%s %s < %s", sys.mail.method, \ X (((sys.options & USE_TELNET) == 0) ? locase (recipient) : ""), \ X MAILFORWARD) X X#define APPEND_TELNET(func) \ X if (sys.options & USE_TELNET) {\ X if ((f = fopen (MAILFORWARD, "a")) == NULL)\ X sprintf (error, "%s(): Could not open %s", func, MAILFORWARD),\ X report_progress (report, error, TRUE),\ X exit (1);\ X COMPLETE_FILE (f);\ X fclose (f);\ X } X X#define NOTIFY_MANAGER(msg) \ X create_header (&f, MAILFORWARD, sys.server.address, sys.manager, sender);\ X fprintf (f, "%s %s\n", msg, sender);\ X COMPLETE_TELNET (f);\ X fclose (f);\ X DELIVER_MAIL (sys.manager);\ X sprintf (error, "%s %s; forwarding message to %s\n", msg, sender,\ X sys.manager);\ X report_progress (report, error, FALSE) X X#define NOTIFY_OF_BAD_ARCHIVE(msg, archive) \ X create_header (&f, MAILFORWARD, sys.server.address, sender, request);\ X fprintf (f, msg, archive);\ X COMPLETE_TELNET (f);\ X fclose (f);\ X DELIVER_MAIL (sender) X X char recipf [MAX_LINE]; /* path to list + RECIP_FILE */ X XFILE *mail = NULL; /* Source of messages */ XFILE *report = NULL; /* Progress report to the administrator */ XFILE *subscribers = NULL; /* List of subscribers */ XFILE *ignored = NULL; /* List of people whose messages are ignored */ XFILE *msg_no = NULL; /* Last message count */ XFILE *message_ids = NULL; /* List of message ids */ X int listid = -1; int request_no = 0; /* Counts the public messages */ int restricted_commands = 0; /* Mask of restrictions */ int disabled_commands = 0; /* Mask for disabling commands */ int nlists = -1; /* # of lists defined in CONFIG */ BOOLEAN one_rejection = FALSE; BOOLEAN restart_sys = FALSE; BOOLEAN tty_echo = FALSE; /* -e option off */ BOOLEAN do_not_notify_peer_server = FALSE; BOOLEAN peer_server_request = FALSE; char *options [] = { "MAIL" }; /* valid SET options */ char *values [] = { "ACK|NOACK|NEVERACK|POSTPONE" }; /* and values */ char *default_values [] = { "NOACK" }; END_OF_FILE if test 4151 -ne `wc -c <'src/listserv.h'`; then echo shar: \"'src/listserv.h'\" unpacked with wrong size! fi # end of 'src/listserv.h' fi if test -f 'src/pqueue.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/pqueue.c'\" else echo shar: Extracting \"'src/pqueue.c'\" $3728 characters$ sed "s/^X//" >'src/pqueue.c' <<'END_OF_FILE' X/* X ---------------------------------------------------------------------------- X | MAIL QUEUE PROCESSING ROUTINES | X | | X | Version 1.0 | X | | X | (or, when Computer Science gets to you) | X | | X | Written by Anastasios Kotsikonas | X | (tasos@cs.bu.edu) | X | | X | AGREEMENT: This software can be used and distributed freely as long | X | as you do not remove or alter the Copyright notice in the file defs.h; | X | this notice is #define'd in the symbol VERSION. Although you may alter | X | the code provided, you may not alter the functions create_header() | X | and create_multi_recipient_header() in list.c and listserv.c. | X | By using this software you are bound by this agreement. | X | This software comes with no warranties and cannot be sold for profit. | X | The AGREEMENT and COPYRIGHT notices should be included in all source | X | files when distributing this software. | X | COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas | X ---------------------------------------------------------------------------- X X The 'system' mailmethod is used to attempt another delivery of the X specified file. If it cannot be done, the file is queued again. X*/ X X#include <stdio.h> X#include <unistd.h> X#include <sys/types.h> X#include <sys/stat.h> X#include <fcntl.h> X#include <signal.h> X#include "defs.h" X#include "struct.h" X#include "global.h" X#include "pqueue.h" X extern BOOLEAN sysmail (char *); X void main (int, char **, char **); void usage (void); void gexit (void); X void main (int argc, char **argv, char **envp) X{ X char msg [MAX_LINE], *options = "eD"; X int c; X FILE *f; X struct stat stat_buf; X extern char *optarg; X extern int optopt, optind; X X while ((c = getopt (argc, argv, options)) != EOF) X switch ((char) c) { X case 'e': tty_echo = TRUE; break; X case 'D': debug = TRUE; break; X case '?': X default: X usage (); X } X if (argc < 2) X fprintf (stderr, "pqueue: filename(s) missing.\n"), X exit (3); X#ifndef _MINIX X if (lockf (open (PQUEUE_LOCK_FILE, O_RDWR), F_TLOCK, 0)) X fprintf (stderr, "pqueue: Unable to lock %s. Aborting.\n", X PQUEUE_LOCK_FILE), X exit (2); X#endif X init_signals(); X catch_signals(); X if ((report = fopen (REPORT_PQUEUE, "a")) == NULL) X fprintf (stderr, "pqueue: Could not open %s\n", REPORT_PQUEUE), X exit (1); X if ((f = fopen (PID_PQUEUE, "w")) != NULL) X fprintf (f, "%d", getpid()), X fclose (f); X signal (SIGINT, gexit); X while (--argc >= optind) { /* main loop */ X if (stat (argv [argc], &stat_buf)) X sprintf (msg, "\nmain(): Could not stat %s", argv [argc]), X report_progress (report, msg, TRUE), X exit (1); X if (sysmail (argv [argc])) X if (unlink (argv [argc])) X sprintf (msg, "\nmain(): Could not unlink file %s", argv [argc]), X report_progress (report, msg, TRUE), X exit (1); X } X fclose (report); X gexit (); X} X void usage () X{ X fprintf (stderr, "Usage: pqueue [-e] [-D] <files>\n\ X-e: Echo reports to the screen.\n\ X-D: Turn debug on.\n"); X exit (3); X} X X/* X Graceful exit. Remove pid file. X*/ X void gexit () X{ X unlink (PID_PQUEUE); X exit (0); X} END_OF_FILE if test 3728 -ne `wc -c <'src/pqueue.c'`; then echo shar: \"'src/pqueue.c'\" unpacked with wrong size! fi # end of 'src/pqueue.c' fi if test -f 'src/pqueue.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/pqueue.h'\" else echo shar: Extracting \"'src/pqueue.h'\" $911 characters$ sed "s/^X//" >'src/pqueue.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X X Below are the #define's pertinent to pqueue.c X X Preserve any quotes and new lines that appear below; change only path names. X X ALWAYS SPECIFY ABSOLUTE PATHS. X X*/ X XFILE *report = NULL; /* Progress report */ BOOLEAN tty_echo = FALSE; /* -e option off */ END_OF_FILE if test 911 -ne `wc -c <'src/pqueue.h'`; then echo shar: \"'src/pqueue.h'\" unpacked with wrong size! fi # end of 'src/pqueue.h' fi if test -f 'src/serverd.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/serverd.h'\" else echo shar: Extracting \"'src/serverd.h'\" $881 characters$ sed "s/^X//" >'src/serverd.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X X Below are the #define's pertinent to serverd.c X X ALWAYS SPECIFY ABSOLUTE PATHS. X X*/ X X#define LOAD_FILE PATH/.load" X#define MAX_TRIES 10 /* wait MAX_TRIES * 30 seconds */ X BOOLEAN tty_echo = FALSE; /* -e option off */ END_OF_FILE if test 881 -ne `wc -c <'src/serverd.h'`; then echo shar: \"'src/serverd.h'\" unpacked with wrong size! fi # end of 'src/serverd.h' fi if test -f 'src/signals.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/signals.c'\" else echo shar: Extracting \"'src/signals.c'\" $2997 characters$ sed "s/^X//" >'src/signals.c' <<'END_OF_FILE' X/* X ---------------------------------------------------------------------------- X | SIGNAL FUNCTIONS | X | | X | Version 2.0 | X | | X | (or, when Computer Science gets to you) | X | | X | Written by Anastasios Kotsikonas | X | (tasos@cs.bu.edu) | X | | X | AGREEMENT: This software can be used and distributed freely as long | X | as you do not remove or alter the Copyright notice in the file defs.h; | X | this notice is #define'd in the symbol VERSION. Although you may alter | X | the code provided, you may not alter the functions create_header() | X | and create_multi_recipient_header() in list.c and listserv.c. | X | By using this software you are bound by this agreement. | X | This software comes with no warranties and cannot be sold for profit. | X | The AGREEMENT and COPYRIGHT notices should be included in all source | X | files when distributing this software. | X | COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas | X ---------------------------------------------------------------------------- X*/ X X#include <stdio.h> X#include <signal.h> X#include "defs.h" X#include "struct.h" X extern void report_progress (FILE *, char *, int); X void init_signals (void); void catch_signals (void); void my_abort (int); X static char *signals[MAX_SIGNAL + 1]; /* Signal names */ X X/* X Initialize the signals[]. X*/ X void init_signals () X{ X signals[SIGHUP] = "SIGHUP"; X signals[SIGINT] = "SIGINT"; X signals[SIGQUIT] = "SIGQUIT"; X signals[SIGTERM] = "SIGTERM"; X signals[SIGBUS] = "SIGBUS"; X signals[SIGSEGV] = "SIGSEGV"; X} X X/* X Catch signals to print messages before aborting. X*/ X void catch_signals () X{ X signal (SIGHUP, my_abort); X signal (SIGQUIT, my_abort); X signal (SIGTERM, my_abort); X signal (SIGSEGV, my_abort); X signal (SIGBUS, my_abort); X signal (SIGKILL, my_abort); /* Can't be caught, but why not try? */ X} X X/* X Kill program after sending message to MANAGER that this is X about to happen (message is sent only when using UCB mail). X*/ X void my_abort (int sig) X{ X extern SYS sys; X X if (sig == SIGHUP) { /* Damn AIX passes signals from children to parents */ X signal (SIGHUP, my_abort); X return; X } X printf ("\n*** Received %s signal ***\n", signals[sig]); X if (sys.options & BSD_MAIL) X syscom ("%s -s \"SERVERD/SERVER/LIST received %s\" %s &", UCB_MAIL, X signals[sig], sys.manager); X exit (8); X} END_OF_FILE if test 2997 -ne `wc -c <'src/signals.c'`; then echo shar: \"'src/signals.c'\" unpacked with wrong size! fi # end of 'src/signals.c' fi if test -f 'src/start.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/start.h'\" else echo shar: Extracting \"'src/start.h'\" $1197 characters$ sed "s/^X//" >'src/start.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X X Below are the #define's pertinent to start.c X X Preserve any quotes that appear below; change only path names. X X ALWAYS SPECIFY ABSOLUTE PATHS. X X*/ X X#define REPORT_LIST_ACC ".rep.list.acc" X#define REPORT_SERVER_ACC PATH/.rep.server.acc" X#define REPORT_SERVERD_ACC PATH/.rep.serverd.acc" X#define REPORT_START_ACC PATH/.rep.start.acc" X#define REPORT_PQUEUE_ACC PATH/.rep.pqueue.acc" X#define REPORT_START PATH/.report.start" X#define MODERATED_MAIL_FILE "moderated" X char report_list_accf [MAX_LINE]; BOOLEAN tty_echo = TRUE; END_OF_FILE if test 1197 -ne `wc -c <'src/start.h'`; then echo shar: \"'src/start.h'\" unpacked with wrong size! fi # end of 'src/start.h' fi if test -f 'src/struct.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/struct.h'\" else echo shar: Extracting \"'src/struct.h'\" $2195 characters$ sed "s/^X//" >'src/struct.h' <<'END_OF_FILE' X/* X AGREEMENT: This software can be used and distributed freely as long X as you do not remove or alter the Copyright notice in the file defs.h; X this notice is #define'd in the symbol VERSION. Although you may alter X the code provided, you may not alter the functions create_header() X and create_multi_recipient_header() in list.c and listserv.c. X By using this software you are bound by this agreement. X This software comes with no warranties and cannot be sold for profit. X The AGREEMENT and COPYRIGHT notices should be included in all source X files when distributing this software. X COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas X*/ X typedef struct { X struct { X char alias [MAX_LINE], /* as it appears in the aliases file */ X comment [MAX_LINE], /* Comment: line in the outgoing mail message */ X address [MAX_LINE], /* full email address of the list */ X cmdoptions [MAX_LINE]; /* list-specific command line options */ X int disabled_commands; /* mask of disabled commands for this list */ X } lists [MAX_LISTS]; /* structure for each list */ X struct { X char address [MAX_LINE], /* full email address of the server */ X comment [MAX_LINE], /* Comment: line in the outgoing mail message */ X cmdoptions [MAX_LINE], /* listserv-specific command line options */ X password [MAX_LINE]; /* for 'shutdown' and 'restart' */ X } server; /* structure for the server */ X struct { X char *method; /* mail method to use */ X char env_var [MAX_LINE]; /* environment variable to use */ X char mail_prog [MAX_LINE]; /* which mail program to use */ X } mail; /* mail method structure */ X struct { X long int msg; /* maximum message limit in bytes */ X } limits; X char serverd_cmdoptions [MAX_LINE];/* command line options */ X char manager [MAX_LINE]; /* manager of the system */ X char arg [MAX_LINE]; /* temporary storage */ X char organization [MAX_LINE]; /* Organization's name */ X int users; /* used by listserv when -r is given */ X int frequency; /* how often to read mail */ X long int options; /* various flags: BSD_PS, USE_TELNET, etc. */ X} SYS; X typedef struct { X char *name; X int mask; X void (*func)(); X} COMMANDS; END_OF_FILE if test 2195 -ne `wc -c <'src/struct.h'`; then echo shar: \"'src/struct.h'\" unpacked with wrong size! fi # end of 'src/struct.h' fi if test -f 'src/tlock.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/tlock.c'\" else echo shar: Extracting \"'src/tlock.c'\" $2280 characters$ sed "s/^X//" >'src/tlock.c' <<'END_OF_FILE' X/* X ---------------------------------------------------------------------------- X | tlock UTILITY | X | | X | Version 1.0 | X | | X | (or, when Computer Science gets to you) | X | | X | Written by Anastasios Kotsikonas | X | (tasos@cs.bu.edu) | X | | X | AGREEMENT: This software can be used and distributed freely as long | X | as you do not remove or alter the Copyright notice in the file defs.h; | X | this notice is #define'd in the symbol VERSION. Although you may alter | X | the code provided, you may not alter the functions create_header() | X | and create_multi_recipient_header() in list.c and listserv.c. | X | By using this software you are bound by this agreement. | X | This software comes with no warranties and cannot be sold for profit. | X | The AGREEMENT and COPYRIGHT notices should be included in all source | X | files when distributing this software. | X | COPYRIGHT: Copyright (c) 1991, Anastasios C. Kotsikonas | X ---------------------------------------------------------------------------- X*/ X X#include <stdio.h> X#include <unistd.h> X#include <fcntl.h> X#include <errno.h> X#include "defs.h" X void main (); X char *s[] = { X SERVERD_LOCK_FILE, LIST_LOCK_FILE, SERVER_LOCK_FILE, PQUEUE_LOCK_FILE, NULL X}; X X/* X Test whether any locks exist on the above files by other processes. X*/ X void main () X{ X#ifndef _MINIX X int i, fd, locks = 0; X X for (i = 0; s[i]; i++) { X if (lockf ((fd = open (s[i], O_RDWR)), F_TLOCK, 0)) X if (errno == EBADF) X locks = -1, X fprintf (stderr, "Cannot access %s\n", s[i]); X else X ++locks, X printf ("Lock placed on %s\n", s[i]); X close (fd); X } X if (!locks) X#endif X printf ("No files locked.\n"); X} END_OF_FILE if test 2280 -ne `wc -c <'src/tlock.c'`; then echo shar: \"'src/tlock.c'\" unpacked with wrong size! fi # end of 'src/tlock.c' fi if test -f 'stds' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'stds'\" else echo shar: Extracting \"'stds'\" $354 characters$ sed "s/^X//" >'stds' <<'END_OF_FILE' X#!/bin/sh if [ $# = 0 ]; then X echo Usage: `basename $0` \<system source C and header files\> fi for i do X if [ ! -r $i ]; then X echo $i: not found X else X echo $i X sed 's/\"\/usr\/server/\"\/usr\/server\"/' $i > /tmp/s X sed 's/PATH\//\"\/usr\/server\//' /tmp/s > /tmp/t X sed 's/PATH\"/PATH/' /tmp/t > $i X rm /tmp/t /tmp/s X fi done END_OF_FILE if test 354 -ne `wc -c <'stds'`; then echo shar: \"'stds'\" unpacked with wrong size! fi chmod +x 'stds' # end of 'stds' fi if test -f 'ulock' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ulock'\" else echo shar: Extracting \"'ulock'\" $133 characters$ sed "s/^X//" >'ulock' <<'END_OF_FILE' X#!/bin/sh X# ulock - in conjunction with the file 'flocks', this utility removes all X# locked files. X/lib/cpp flocks | /bin/sh END_OF_FILE if test 133 -ne `wc -c <'ulock'`; then echo shar: \"'ulock'\" unpacked with wrong size! fi # end of 'ulock' fi echo shar: End of archive 1 $of 6$. cp /dev/null ark1isdone MISSING="" for I in 1 2 3 4 5 6 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 6 archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0